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TABLEl 

function bIoxapK context, appName, source, pol 1 interval , prefixURL ) 

// Public methods 
thi s - pol 1 = _pol 1 ; 

this. setEnablePol ling = _setEnablePolling; 

thi s.getEnablePol ling = _getEnablePolling; 

thi s . setPol 1 i nglnterval = _setPol 1 i nglnterval ; 

thi s . getPol 1 i nglnterval = _getPol 1 i nglnterval ; 
this. pol iTimerHandler = _pollTimerHandler ; 

this.sendEvent = _sendEvent; 

this. call = _call ; 

this. call Bean = ^callBean; 

this.addEventListener = _addEventListener; 

this.addErrorHandler = _addErrorHandler ; 

this.addBusyHandler = _addBusyHandler ; 
this. registerBlox = _registerBlox; 
this.getBlox = _getBlox; 
this.rpc = _rpc; 
this.setDebug = _setDebug; 
this.setBloxBusy = _setBloxBusy; 
this. isSessionExpi red = _isSessionExpired; 
this.processSessionExpi red = _processSessionExpi red; 
thi s.nandleModal Dialog = _hand I eModal Dialog; 

// Private data 

this._bloxHttp = new BloxHttpO; 

this._pollingEnabled = false; 
this._pollTimeout = null; 

this._eventListeners = new Array (); // Event listeners 

this._errorHandlers == new ArrayO; // Error handlers 

this._busyHandlers = new ArrayO; // Busy handlers 

this._pendingEvents = new ArrayO; // Non-urgent events 

this._debug = false; 
this._registeredBlox = new ArrayO; 
thi s.^busyPoll Interval MS = 1000; 
this.^serverBusy = true; 
this._initialRequest = true; 
this.^sessionExpired = false; 

this._sessionExpiredMessage = "Your session has expired, please refresh the 
page" ; 

thi s.^deferredModal Dialogs = new ArrayO; 
this._deferredModelDialogTimer = null; 

// Private methods 

thi s ._startPol iTi mer =„startPol iTimer ; 
this._rpc = _rpc; 

this._cancel PollTimer = .cancelPollTimer; 

this._internalRPC = _internalRPC; 

thi s._processModal Dialogs = ^processModal Dialogs; 

// Begin constructor 
this._context = context; 
this._appName = appName; 

this._pollinglntervalMS = polllnterval ; 
this._source = source; 

this._prefixURL = prefixURL; 

this.addErrorHandlerC _soapErrorHandler ); 

addOnloadMethodC "bloxAPi.setEnablePollingC" + (polllnterval > 0) + ");" ); 
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// End constructor 

* Control debugging mode. 

* @param boolean enable debugging 
function _setDebug( debug ) 

^ this._debug = debug; 

* Add an event listener. Event listeners will receive all events before the 
event is sent to the 

* server- The function provided will be passed an event object and should 
return true to indicate 

* that the event was handled. 

* @param Function event listener function 

*/ 

function _addEventListener( listener ) 

^ this._eventListeners[ this.^eventListeners. length ] = listener; 

* Add an error handler. Error handlers will receive all soap errors before 
they are processed by 

* the client. Use this to override the default error handler behavior. The 
function provided will 

* be passed the SimpleSoapResponse object and should return true to indicate 

that the error was handled. 

* 

* @param Function error handler function 

V 

function _addErrorHandler( handler ) 

^ this._errorHandlers[ this. _errorHandlers. length ] = handler; 

* Add an Blox busy handler. Busy handlers will be invoked whenever a Blox 
busy state changes. The 

* JS function provided will be called with the Blox. The busy state on the 
Blox indicates it's current 

* busy state. Return true to prevent further processing of the state change. 
The default action will 

* grey out the Blox when busy. 

* @param Function busy handler function 

V 

function _addBusyHandler( handler ) 

^ this._busyHandlers[ this._busyHandlers. length ] = handler; 

* Returns true if the Alphablox session has expired. 

if 

* ©return boolean true if the session has expired. 

V 

function _isSessionExpi red( ) 
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{ 

^ return this._sessionExpi red; 

* Register a Blox with the API. Registered El ox will receive updates 
from the server, if a 

* Blox is not registered, it will not receive any updates from the 

server. 

* 

* This is an overloaded method... you can call registerBlox( blox ) and 
pass in a JS Blox object, 

* or you can call registerBlox( bloxName, bloxUlD ) which will create a new 
35 Blox object, 

* save that Blox object on the html element and adds it to the BloxAPi's 
blox array. 

* 

* @param Blox blox to be registered 
V 

function _registerBlox() 

var blox ; 

// First case creates a new Blox object, 
if (typeof (.register Blox. arguments [0]) == "string" && 
_registerBlox. arguments. length == 3) { 

var BloxName = _regi sterBl ox. arguments [0] ; 

var uid = _regi sterBl ox. argument s [1] ; 

var bloxElement = document .get El ementByld (uid) ; 

blox = new Blox( bloxName, uid, _regi sterBl ox. arguments [2] ) ; 

bloxElement .blox = blox ; 

bloxElement.oncontextmenu = function () { return false; }; 

} // Second case assumes that the Blox object is passed in. 
else { 

^ blox = _regi SterBl ox. argument s [0] ; 

// Make sure that the Blox has not been previously registered 
for ( var i=0; i < this.^registeredBl ox. length; i++ ) 

if ( blox getNameO == this._registeredBlox[ i ].getName() ) 

return; 

this._registeredBlox[ this. _registeredBlox. length ] = blox ; 

// Add it to the document object 

eval ("document." + blox .getNameO + " = blox ;"); 

eval ("window." + blox getNameO + " = blox ;"); 



* 



Lookup blox by name in the registed blox list. 



* Oparam String blox name 

* ©return Blox registered blox or null 

*/ 

function _getBlox( name ) 

for ( var bloxldx=0; bloxidx < this.^reqisteredBl ox. length; bloxldx++ ) 
if ( name == thi s._registeredBl ox [bloxidx] .getName() ) 
return this._registeredBlox[bloxldx] ; 
return null ; 
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Connect to a web page and return the result. 

@param String url full URL to the web page to connect to 
©return string web page text 



function _can( url ) 
{ 

// Make sure the brower does not return a cached page 
url += ( url.indexOfC )==-!)? "?_cb=" : "&_cb="; 
url += new Date() .getTimeO ; 

this._bloxHttp.open( "GET", url, false, null, null ); 
this._bloxHttp.send( null ); 
var response = this._bloxHttp.getResponseO ; 
this. poll () ; 
^ return response; 

* Force a server poll immediately. This will cause any pending client 
updates for 

* registered Blox to be returned. 

V 

function _poll ( ) 

// This poll does not use the application context and thus will not keep the 
session alive. This is 

// desired so that the session can timeout if no real activity occurs. 

this._internalRPC( "Alphabloxserver" , new SimpleSoapRequestC "poll" 



) ) 



} 

* 
* 
* 

V 

function __setEnablePolling( enabled ) 

this._pollingEnabled = enabled; 



control the automatic polling of the server. 
@param boolean enable automatic server pollingi 



} 



if ( enabled ) 
this._startPollTimer( ); 
else if ( ! enabled ) 

this.^cancelPollTi mer() ; 



Return the enabled state of automatic server polling, 
©return boolean automatic polling enabled 



function _getEnablePolling( ) 
^ return this._pollingEnabled; 



* 



Set the polling interval for non-busy polling. This is the normal 
polling "heartbeat" that checks the server for asynchonous updates, 
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* The polling mechanism uses a different interval when the server 

* informs the client that it is busy. 

it 

* ©pararn int milliseconds number of milliseconds between polls 

V 

function _setPollinglnterval ( milliseconds ) 
^ this._pollingintervalMS = milliseconds; 

* Return the current non-busy polling interval. 

* ©return int non-bust polling interval 

V 

function _getPollinglnterval ( ) 

^ return this._pollingintervalMS; 

* Send an event to the server - 

* 

* @param Event event event to send to the server 

V 

function _sendEvent( event ) 
{ 

// Send event to all registered event listeners 
for ( var i=this._eventListeners. length; i-- > 0; ) 
if ( this._eventListeners[i] ( event ) ) 
return false; 

if ( event. isReplaceouplicateQ ) { // Replace all duplicate events by 
removing them 

for ( var j=this._pendingEvents. length; j — > 0; ) 

if ( event. isDupli cat e( this._pendingEvents[j] ) ) 
^ this._pendingEvents.splice( j, 1 ); 

this._pendingEvents[ this._pendingEvents. length ] = event; 

if ( event. isurgentC ) ) // Send event and keep the session alive 
destination) 

rpc( new SimpleSoapRequest( "poll" ) ); 
return true; 



(application poll destination) 
this._ 



that method 

* 



} 

* Call a method on a bean on the server and return the return value of 



@param string beanName name of the bean 

* ©param String beanMethodName name of the method 

* ©param Array array of method parameters 

* ©param Array array of method parameter types 

* ©return return value from the bean method 
V 

function _callBean( beanName, beanMethodName /*, methodParameters, 
methodParameterTypes */ ) 

var soap = new SimpleSoapRequest( "call Bean" ); 
soap.addParameterC "bean , beanName ); 
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soap.addParameterC "method", beanMethodName ); 

if ( _ca11 Bean. arguments. length >= 3 ) { 

var parameters = _caMBean.arguments[2] ; 
var types = ( _call Bean. arguments. length == 4 ) ? 
_call Bean. arguments [3J : null; 

for ( var i=0; i < parameters. length; i++ ) { 
var name = arg" + (i+1); 

if ( types != null && i < types. length ) 

soap.addParameterC name, parameters [i ] , types[i] ); 

else 

soap.addParameterC name, parameters[i] ); 

} ^ 



} 



return this._rpcC soap ); 

Send a SOAP RPC request to the server and process the results. This 
invoke method indicated in the RPC package and return the method 



method will 
result. 

* @param SoapRequest soapRequest the request to be sent to the server 

* ©return return value from the invoked method 

*/ 

function _rpcC soapRequest ) 

^ return this.^internalRPCC this._context + "/abx", soapRequest ); 

* called by a Blox to visually indicated that it is busy. 

* @param Blox 

* ©return boolean busy handled Cno default behavior) 

function _setBloxBusyC blox ) 

// Send event to all registered event listeners 
for C var i=this._busyHandlers. length; i-- > 0; ) 
if C this._busyHandlers[i] C blox ) ) 
return true; 

^ return false; 

* call this method to force a session expired state for all Blox managed by 

this 

* BloxAPl. One this method is called, the Blox will no longer generate RPC 

calls 

* and will be disabled. 

*/ 

function ^processSessionExpi redC ) 
this._sessionExpi red = true; 

for C var bloxidx=0; bloxidx < this-_registeredBlox. length; 

bloxldx++ ) { 
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var blox = thi s ._regi steredBlox[bloxldx] ; 



blox.getContainerO .title = this._sessionExpi redMessage; 

blox.closeAllDialogsC ); 
blox.setDisabledC true ); 
blox.setBusyLogoC false ); 



//////////////////////////////////////////////////////////////////////////////////// 
//////////////////////// 

// Private Method Definitions 

// Invoke a server rpc 

function _internalRPC( liRLPath, soapRequest ) 

if ( this._sessionExpired ) // If the session 

has expired we are done 

return null ; 

this-_cancelPonTimer( ); 

soapRequest. setSourceC this._source ); 
soapRequest . setContext ( thi s . _appName) ; 
soapRequest. setinitialRequestC thi s.^initial Request ); 
soapRequest. setThemeName^ _themeName ); 

thi s._initial Request = false; 

// Add all pending events to the request 

for ( var e=0; e < thi s._pendingEvents. length; e++ ) 

soapRequest .addEventC this._pendingEvents[e] ); 
thi s._pendingEvents. length = 0; 

// Add an update header for each blox managed by this Blox API 

for ( var bloxldx=0; bloxidx < thi s._registeredBl ox. length; 

bloxldx++ ) 

soapRequest. addUpdateHeaderC thi s._registeredBl ox [bloxidx] .getNameO 

); 

if ( this._debuq ) 

alert ( SOAP Request: " + ^prefixURL + "/" + URLPath + 
"/soap/" + "\r\n\r\n" + soapRequest .getRequestQ ); 

var soapResponse = null; 

try 

bloxHttp.openC "post", _prefixURL + "/" + URLPath + "/soap/", false, 
null , null ) ; 

bloxHttp.send( soapRequest. getRequestO ); 

var response = bloxHttp.getResponseO ; 
var status = bloxHttp.getStatus( ); 

var document = bloxHttp-getResponseXML( ) .documentElement ; 

if ( status != 200 ) { //We never seem to get here as the browser 

catches the error, but iust in case ... 

alertC 'An unrecoverable error occured communicating with the 
Alphablox server" ); 

return null ; 

} 
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if ( this.^debug ) 

alertC "SOAP Response (status " + status + "):\r\n\r\n" + response 



// Process response headers (blox busy, dialog changes, model changes 
if ( document != null ) { 

soapResponse = new SimpleSoapResponse( document ); 

else { 

soapResponse = new simpleSoapResponse( ); 
soapResponse. faultcode = "enviReceiver" ; 

soapResponse. faultReason = "Unable to parse the server's response 
(document is null)\r\n\r\n" + response; 

} ^ 

catch ( e ) 
{ 

var problem = e. description; 
if ( problem == null || problem, length == 0 ) 
problem = "Communications error ; 

else 

problem += " [" + e.name + "]"; 



soapResponse = new SimpleSoapResponse( ); 
soapResponse. faultcode = "env:Receiver" ; 

soapResponse. faultReason = "Trouble communicating with the Alphablox 
Server\r\n\r\ncause: " + problem; 



if ( soapResponse. hasFaultO ) { 

// If the session has ended, close all dialogs and disable all 

blox 

if ( "blox:sessionexpired" == soapResponse. faultSubcode ) 
this.processSessionExpired( ); 

// Send error to all registered error handlers till it is handled 
for ( var i=this._errorHandlers. length; j-- > 0 ; ) 
if ( tnis._errorHandlers[j] ( soapResponse ) ) 
break; 

if ( "blox:sessionexpired" != soapResponse. faultSubcode ) { 
this._serverBusy = false; 
this._startPollTimer( ); 



return null ; 



// Refresh the client state if needed 
if ( soapResponse. isRefreshclient( ) ) 
_refreshclientstate( ); 

// Deal with new browser windows 
soapResponse . di spatchBrowserwi ndows ( ) ; 

var serverBusy = false; 

for ( var i=0; i < this. _registeredBlox. length; i++ ) { 
var blox = this._registeredBlox[i] ; 

// Dispatch all request headers for this Blox 
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soapResponse.dispatchClosedDialogsC blox ); 
soapResponse.dispatchComponentUpdatesC blox ); 
soapResponse.dispatchDialogComponentUpdatesC blox ); 
soapResponse.dispatchRightClickMenusC blox ); 
soapResponse.dispatchBloxBusyStatusC blox ); 

// Deal with the blox busy state 
^ serversusy = serverBusy || blox.isBusyC ); 

soapResponse . di spatchcl i pboardContents( ) ; 
soapResponse . di spatchcl i entcommands ( ) ; 

this._serverBusy = serverBusy; 
this.^startPollTimerC ); 

// Must be last due to modal dialog behavior 

for ( var d=0; d < this._registeredBl ox. length; d++ ) 

soapResponse . di spatchNewDi al ogs ( thi s ._regi steredBl ox [d] ) ; 

^ return soapResponse. getResponseO ; 

// Cancel the poll timer 
function _cancelPonTimer( ) 

if ( this._poll Timeout != null ) { 

clearTimeoutC this._poll Timeout ); 
this._poll Timeout = null; 

} ^ 

// Handle an automatic poll 
function _pol lTimerHandler() 

_cancelPollTimer( ); 

if ( !this._pollingEnabled ) 
return; 

^ this. poll ( ) ; 

// Start the automatic poll timer 
function _startPollTimer( ) 

if ( this.^pollingEnabled && t hi s._poll Timeout = null ) { 
var interval ; 

if ( this._initial Request ) // Send the first 

poll out immediately to collect any dialogs 

interval = 0; 

else 

interval = ( this._serverBusy ) ? 
this._busyPoll interval MS : this. .poll inginterval MS; 

this.^pollTimeout = setTimeoutC 
"bloxAPl.pollTimerHandlerO;", interval ); 

// Default error handler 
function _soapErrorHandler( soapResponse ) 
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{ 

alert ( "Alphablox Server :\r\n\r\n" + soapResponse.faultReason ); 
return true; 

} 

// Handle modal dialogs 

function _handleModalDialog( dialog ) 

if ( isModalDialogDisplayedQ ) { 
dialog. open () ; 
return; 

} 

this._deferredModal Dialogs. push ( dialog ); 

if ( this._deferredModelDialogTimer == null ) 

this._deferredModelDialogTimer = setlntervaK 
"bloxAPl._processModalDialogs( );", 20 ); 

function _processModalDialogs( ) 

if ( this._deferredModal Dialogs. length == 0 ) { 
if ( this._deferredModelDialogTimer != null ) 

clearinterval( this.^deferredModelDialogTimer ); 
this._deferredModelDialogTim€r = null; 

^ return; 

// If here are any onload methods then wait 
if ( onloadMethods. length > 0 ) 
return ; 

// If there are any deffered component updates then wait 

for ( var i=0; i < this.__registeredBlox. length; i++ ) { 
var blox = this._registeredBlox[i] ; 
if ( blox. _deferredupdates. length > 0 ) 
return; 

} 

clearinterval ( this.^deferredModelDialogTimer ); 
this-_deferredModelDialogTimer = null; 

// Process all modal dialogs 

while ( this._deferredModal Dialogs. length > 0 ) { 
this._deferredModalDialogs.pop() .open() ; 



if ( IbloxAPl ) 
{ 

var bloxAPi = new BloxAPl( _appContext, ^appName, _renderType, _pollinterval 
_prefixURL ); 

* Exception class 
*/ 

function Exception( exceptionclass, message ) 

// Public methods 
this.getExceptionclass = _getExceptionClass; 
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this.getMessage = _getMessage; 
this-tostring = _toString; 

// Private data 

// Private methods 

// Begin constructor 

this.^exceptionclass = exceptionclass; 
this._message = message; 
// End constructor 

function _getExceptionclass( ) 

^ return this._exceptionClass; 

function _getMessage( ) 
^ return this-_message; 

function _toString( ) 

return this._exceptionclass + " + this._message; 

} ^ 



Page 11 



TABLE2.txt 

TABLE 2 

* BLOX HTTP SOAP request "class". 

V 

function SimpleSoapRequest( /* String */ methodName ) 

// Public methods 

this.getRequest = ^getRequest; 
this.addParameter = _addParameter ; 
this.setBloxName = _setBloxName; 
this.getBloxName = _getBloxName; 
this.setsource = _setSource; 
this.addUpdateHeader = _addUpdateHeader; 
this.setContext = _setContext; 
this.setlnitial Request = _setlnitial Request; 
thi s . setThemeName = _setThemeName; 
this.addEvent = _addEvent; 

// Private data 

this._parameters = new ArrayQ; 
this._bloxName = null; 
this.^source = null; 
this._context = null; 
this.^updateList = null;; 
thi s._initial Request = false; 
this._themeName = null; 
this.^events = null; 
// Private methods 

// Begin constructor 

this. methodName = methodName; 
// End constructor 

function _getRequest( ) 

var request = new ArrayO; 

request. pushC "<?xml version=\"l-0\" encoding=\"UTF-8\" ?>\r\n" ); 

request .push( "<env: Envelope 
xml ns : env=\"http : //www . w3 . org/2002/06/soap-envel ope\" 
xml ns : bl ox=\"http : //al phabl ox . com/soap- request\"\r\n" ) ; 

request .push( " 

xml ns : xsd=\"http : //www . w3 . org/2001/09/soap-encodi ng\">\r\n" ) ; 
request -push ( " <env:Header>\r\n" ); 
request. push( " <blox: routing>\r\n" ); 

request. push( " <blox:handler>RenderManager</blox:handler>\r\n" ); 

if ( this.^source != null ) { 

request .push( " <blox:source>" ); 

request .push( this._source ); 

request- push( "</blox:source>\r\n" ); 



if ( this.^context != null ) { 

request .push( " <blox:context>" ); 

request. push( this._context ); 

request .push ( "</blox:context>\r\n" ); 



if ( this._bloxName != null ) { 

request .push ( " <blox:bloxname>" ); 

request. push ( this._bloxName ); 
request. push ( "</blox:bloxname>\r\n" ); 
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if ( this._themeName != null ) { 

request .push( " <blox:theme>" ); 

request .push( this.^themeName ); 
request. push ( "</blox:theme>\r\n" ); 

if ( this. .initial Request ) 

request. push( " <bl ox: initial Request />\r\n" ); 

request. push ( " </blox: routing>\r\n" ); 

if ( this._updateList != null && this._updateList. length > 0 ) { 
request ,push( " <blox:update>\r\n" ); 

for ( var i=0; i < t hi s._updateList. length; i++ ) { 
request. pushC " <blox:bToxname>" ); 

request. push( this._updateList[i] ); 
request .push ( "</blox:bloxnanie>\r\n" ); 



} 



request. pushC " </blox:update>\r\n" ); 



if ( this. .events != null && this. .events. length > 0 ) { 
for ( var e=0; e < this. .events. length; e++ ) { 
var event = thi s.. events [e] ; 

request .push ( " <blox:event>\r\n" ); 

request .push( " <blox:class>" + event .getEventClassO + 

"</blox:class>\r\n^ ); 

request. push ( " <blox:bloxname>" + event .getBloxNameQ + 

"</bl ox : bl oxname>\r\n" ) ; 

if ( event. getDestinationUlDO != null && event .getDestinationuiDQ 
> 0 ) //If there is a UID, use it 

request. push( " <blox:uid>" + event. getDestinationuiDQ 

+ "</blox:uid>\r\n" ); 

else if ( event .getDestinationNameO != null ) // if there is 

no UID but there is a name, use the name 

request. push( " <blox:name>" + 

event. getDestinationNameO + "</blox:name>\r\n" ); 

// Add any event-specific attributes 

var attrs = event .getAll Attributes () ; 

for ( var el=0; el < attrs. length; el++ ) { 

request. push( ' <bTox:param name="" + attrs [el] [0] + 

•*>\r\n' ); 

request. push ( " " + .dataToXML( "value", 

attrs[el][l], null ) + "\r\n" ); 

^ request. pushC " </blox:param>\r\n" ); 

request. push( " </blox:event>\r\n" ); 



request, push( " </env:Header>\r\n <env:Body>\r\n" ); 
request. push( " <blox:" + methodName + ">\r\n" ); 

for ( var j=0; j < this. .parameters. length; j++ ) { 
var parameter = thi s. .parameters [ j] ; 
request. push ( " " ); 
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request .push( _dataToXML( parameter[0] , parameter[l] , 

parameter [2] ) ); 

^ request -push( "\r\n" ); 

request. push ( " </b1ox:" ); 

request .push ( methodName ); 
request. push( ">\r\n" ); 

request. push ( " </env:Body>\r\n</env:Envelope>\r\n" ); 
^ return request .join( ); 

function _dataToXML( name, data, type ) 

var request = new Array( ); 

if ( data = null ) { 

request .push( "<blox:" + name + " xsd:null=\"true\"/>" ); 

else if ( typeof data != "object" ) { 
var cdata = true; 

request. push ( "<blox:" + name ); 
if ( type != null ) { 

request. push( " xsd:type=\"" ); 
request. push ( type ); 
request. pushC "V" ); 

if ( type == "boolean" || type == "int" || type == "integer" 
II type == "long" || type == "byte" || 

type == "double" || type == "float" ) 
cdata = false; 

request. push ( ">" ); 

if ( cdata ) request .push( "<![cdata[" ); 

request .push( data ); 
if ( cdata ) request. push( "]]>" ); 

request .push( "</blox:" ); 
request .pushC name ); 
request. pushC ">" ); 

else { // Handle arrays 

request .push( "<blox:" ); 
request .push( name ); 
request. push( " xsd:type=\"Array\">" ); 

for ( var j=0; j < data. length; j++ ) 

request. pushC _dataToXML( name + j, data[j], type ) 

request. push( "</blox:" ); 
request. push( name ); 
request. push( ">" ); 



); 



} 



} 

return request .join( ); 



function _addParameter( name, value /*, type */ ) 

var index = this._parameters. length; 
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var type = null ; 

if ( „addParameter. arguments. length >= 3 ) 
type = _addParameter. arguments [2] ; 

^ this._parameters[ index ] = new Array( name, value, type ); 

function _addEvent( event ) 

if ( this._events == null ) 

this._events = new ArrayO ; 

^ this._events[ this.^events. length ] = event; 

function _setBloxName( name ) 
^ this._bloxName = name; 

function _getBloxName( ) 

return this._bloxName; 

} 

function _setSource( source ) 
^ this._source = source; 

function _setContext( context ) 
^ this._context = context; 

function _setinitial Request ( initial Request ) 
^ this.^initial Request = initial Request; 

function _setThemeName( themeName ) 
^ this._themeName = themeName; 

function _addupdateHeader( bloxName ) 

if ( bloxName == null || typeof bloxName != "string" || 
bloxName. length == 0 ) 

return; 

if ( this._updateList == null ) 

this.^updateList = new ArrayO; 



var index = this-_updateList. length; 
this-_updateList[ index ] = bloxName; 



} 

/ 



* BLOX HTTP SOAP response "class". 

V 
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function SimpleSoapResponseC /* DOMDocument */ responseDoc ) 

// Public methods 

this.getResponse = _getResponse; 
this.dispatchBloxBusyStatus = _dispatchBloxBusyStatus; 

this.dispatchClosedDialogs = _dispatchclosedDialogs; 

this.dispatchcomponentupdates = _dispatchComponentupdates; 

thi s . di spatchDi a I ogComponentupdates = _di spatchDi al ogcomponentupdates ; 

this.dispatchNewDialogs = _dispatchNewDialogs; 

this.dispatchRightclickMenus = _dispatchRightClickMenus; 

this.dispatchBrowserWindows = _dispatchBrowserWindows; 

this.dispatchclientcommands = _dispatchClientCommands; 
this.dispatchclipboardcontents = _dispatchClipboardContents; 
this.isRefreshclient = _isRef reshclient ; 
this.hasFault = _hasFault; 

// Public properties 
this.faultReason = null; 
this.faultcode = null; 
this.faultsubcode = null; 

// Private data 
this._busyHeaders = null; 
this.^componentupdates = null; 
this,_dialogupdates = null; 
this._newDialogs = null; 
this.^closedDialogs = null; 
this._rightClickMenu = null; 
this._browserwindows = null; 
this._clientCommands = null; 
this._clipboardContents = null; 
this._result = null; 
this._ref reshclient = false; 

// Private methods 

// Begin constructor 
if ( responseDoc == null ) 
return; 

var headerNodes = responseDoc -get El ementsByTagName( "env:Header" ); 
if ( headerNodes != null && headerNodes. length = 1 ) { 
var header = headerNodes -item( 0 ); 

this._busyHeaders = _parseBusyHeaders( header .get Element sByTagNameC 
"blox:busyState" ) ); 

tnis._comppnentUpdates = _parseComponentupdateHeaders( 
header .getElementsByTagNameC "blox: componentupdate" ) ); 

this.^dialogupdates = _parseDialogUpdateHeaders( 
header. getElementsByTagNameC "bloxiupdateDialog" ) ); 

this.^closedDialogs = _parseClosedDialogHeaders( 
header -getElementsByTagNameC "bloxrcloseDialog" ) ); 

this._newDialoc|S = _parseNewDialogHeadersC 
header .getElementsByTagNameC "bloxrnewDialog" ) ); 

this-_rightclickMenu = _parseRightClickMenuHeadersC 
header. getElementsByTagNameC "blox: rightClickMenu" ) ); 

this._browserWindows = _parseBrowserWindowHeadersC 
header. getElementsByTagNameC "bloxrbrowserwindow" ) ); 

this.^clientcommands = _parseClientCommandHeadersC 
header .getElementsByTagNameC "blox:clientCommand" ) ); 

this.^clipboardcontents = _parseClipboardHeadersC 
header. getElementsByTagNameC "blox:clipboardContents" ) ); 
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var refreshNodes = responseDoc.getElementsByTagName( "blox: ref reshclient" ); 
if ( refreshNodes 1= null && ret reshNodes. length == 1 ) 
this._refreshclient = true; 

} 

var bodyNodes = responseDoc.getElementsByTagNameC "env:Body" ); 
if ( bodyNodes != null SA bodyNodes. length = 1 ) { 
var body = bodyNodes, item ( 0 ); 

// Check for a fault in the body 

var faultNodes = body.qetElementsByTagName( "env: Fault" ); 
if ( faultNodes != null && faultNodes. length > 0 ) { 
this.faultcode = 

var codeNodes = faultNodes. i tern (0) .get Element sByTagNameC 

if ( codeNodes != null && codeNodes. length > 0 ) { 

var nl = codeNodes. item(O) .getElementsByTagName( 

if ( nl != null && nl. length > 0 ) 
^ this.faultcode = nl. i tern (0) .text ; 

var subcodeNodes = faultNodes.item(O) .getElementsByTagNameC 

if ( subcodeNodes != null && subcodeNodes. length > 0 ) { 

var n2 = subcodeNodes. item(O) .getElementsByTagNameC 

if ( n2 != null && n2. length > 0 ) 
^ this.faultsubcode = n2.item(0) .text; 

var reasonNodes = faultNodes.item(O) .getElementsByTagNameC 



"env: code" ); 
"env rvalue" ); 

"env: Subcode" ); 
"env lvalue" ); 

"env: Reason" ); 



} 

else { 



if C reasonNodes != null && reasonNodes. length > 0 ) 
this.faultReason = reasonNodes. itemCO) .text ; 



var child = body.fi rstchi Id; 
if C child != null ) { 

var resultNodes = child. getElementsByTagNameC 

"blox: result" ); 

if C resultNodes != null && resultNodes. length == 1 



) 



this._result = _parseResultDataC resultNodes. itemC 0 ) ); 

^ } 

} 

// End constructor 

function _hasFaultC ) 
{ 

^ return this.faultcode != null; 

function _isRefreshClientC ) 
^ return this._refreshclient; 

function _dispatchBloxBusyStatusC blox ) 
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var bloxName = blox.getNameO ; 

if ( this._busyHeaders != null ) { 

for ( var i=0; i < this._busyHeaders. length; i++ ) { 
var header = this._busyHeaders[i J ; 
if ( bloxName == header [0] ) { 

setTimeoutC bloxName + ".handleBusyC " + 



header [1] +");". 0 ); 

} 



^ return; 



} 



} 



function _dispatchComponentUpdates( blox ) 

var bloxName = blox.getNameO; 

if ( this._componentUpdates != null ) { 
var updates = false; 

for ( var i=0; i < this.^componentupdates. length; i++ ) { 
var header = this._componentupdates[i] ; 
if ( bloxName == header [0] ) { 
blox.handleComponentUpdateC header[l], header[2], header[3] ); 
updates = true; 



if ( updates ) { 

blox.endComponentUpdatesC ); 

} 
} 

function _dispatchDialogComponentupdates( blox ) 

var bloxName = blox.getNameO; 

if ( this._dialogupdates != null ) { 
var updates = false; 

for ( var i=0; i < this._dialogupdates. length; i++ ) { 
var header = this._diaTogUpdates[i J ; 
if ( bloxName == header [0] ) { 

blox.handleoialogComponentUpdateC header [1] , 

updates = true; 

} 



header [2], header [3] ); 

} 



if ( updates ) { 

bl ox . endDi al ogcomponentupdates ( ) ; 



function _dispatchClosedDialogs( blox ) 

var bloxName = blox.getNameO; 

if ( this.^closedDialogs != null ) { 
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for ( var i=0; i < this, _closedDialoqs. length; i++ ) { 
van header = this._c1osedDiaTogs[i] ; 
if ( bloxName == header [0] ) 

b1 ox. handled oseOialogC header[l] ); 

} ^ 
} 

function _dispatchNewDialogs( blox ) 

var bloxName = blox.getNameQ ; 

if ( this._newDialogs != null ) { 

for ( var i=0; i < this._newDialoqs. length; i++ ) { 



ogs[iJ ; 
) 

og( header[l], header[2], 



var header = this._newDia 
if ( bloxName = header [0 
bl ox . handl eNewDi a 
header[3], header [4], header[5], header[6], header[7] ); 

} 

function _dispatchRightClickMenus( blox ) 

var bloxName = blox.getNameO ; 

if ( this._rightClickMenu != null ) { 

for ( var i=0; i < this._rightClickMenu. length; i++ ) { 
var header = this._rightclickMenu[i] ; 
if ( bloxName == header [0] ) 

bl ox . handl eRi ghtcl i ckMenu ( header [1] , 

header [2], header [3], header [4] ); 

} 

} 
} 

function _dispatchBrowserwindows( ) 

if ( this._browserwindows != null ) 

for ( var i=0; i < this._browserwindows. length; i++ ) { 
var browser = this._browserWindows[i] ; 
var win; 
if ( browser [2] == null ) 

win = window. openC browser[0], browser[l] ); 

else 

win = window. open( browser[0], browser[l], browser[2] ); 

try { 

if ( win != null ) 
win -focusO ; 
} catch ( e ) { 

// when setting focus to an existing window, we will get a 

bizzare exception 
} ^ 

} 

function _dispatchClientCommands( ) 

if ( this._clientCommands != null ) { 

for ( var i=0; i < t hi s._cli en tcommands. length; i++ ) { 
var command = thi s._clientCommands[i] ; 

_soapClientCommands[ _soapClientCommands. length ] = command [0]; 
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} 

if ( _soapClientCommands. length > 0 && _soapClientCommandTimer == null ) 
_soapClientConimandTimer = setTimeout( 
"_runNextSoapClientCommand() ; " , 0 ) ; 

} ^ 

function _dispatchClipboardContents( ) 

if ( this._clipboardContents != null ) { 

for ( var i=0; i < this.^clipboardContents. length; i++ ) { 
var contents = this._clipboardContents[i] ; 
window. clipboardData.setDataC contents[0], contents[l] ); 

} ^ 

} 

function _getResponse( ) 
return this._result ; 

} 

function _parseBusyHeaders( busyNodes ) 

var headers = new ArrayQ; 

for ( var i=0; i < busyNodes. length; i++ ) { 
var busy = busyNodes. item( i ); 

headers [ headers. length ] = 

new ArrayC busy.getAttributeC "bloxibloxName" ), 

busy.getAttributeC "blox:busy" ) = 



'true" ); 



} 



} 

return headers; 



function _parsecomponentupdateHeaders( updateNodes ) 

var headers = new ArrayQ; 

for ( var i=0; i < updateNodes. length; i++ ) { 
var update = updateNodes. item( i ); 



"blox: contents" ); 



"bloxiuid" ) ), 
== "true" ); 
} 



var contentNodes = update. getElementsByTagNameC 
var contents = ""; 

if ( contentNodes != null && contentNodes. length == 1 ) 
contents = contentNodes. item(O) .text; 

headers [ headers. length ] = 

new ArrayC update. getAttributeC "bloxibloxName" ), 
parseintC update. getAttributeC 



contents, 

update -getAttributeC "blox: defer" ) 



} 

return headers; 



function _parseNewDialogHeadersC updateNodes ) 
var headers = new ArrayC); 
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for ( var i=0; i < updateNodes. length; i++ ) { 
var update = updateNodes. item( i ); 

var titleNodes = update. get El ementsByTagNameC "bloxititle" 
var title = 

if ( titleNodes != null && titleNodes. length = 1 ) 
title = titleNodes. iteni(O). text; 



"bl ox: contents" ); 



"bloxrdialoguid" ) ), 
== "true", 
"blox: height" ) ), 
"bloxrwidth" ) ), 



var contentNodes = update. get El ementsByTagNameC 
var contents = ""; 

if ( contentNodes != null && contentNodes. length == 1 ) 
contents = contentNodes. item(O) .text ; 

headers [ headers. length ] = 

new Array ( update. getAttributeC "bloxibloxName" ), 
parselntC update. getAttributeC 

update. getAttributeC "blox: modal" ) 

parseintC update. getAttributeC 

parselntC update. getAttributeC 



title, 

contents, 

update . getAtt ri buteC 

"blox: resizeable" ) "true" ); 
^ return headers; 

function _parseDialogUpdateHeadersC updateNodes ) 

var headers = new ArrayC); 

for C var i=0; i < updateNodes. length; i++ ) { 
var update = updateNodes. itemC i ); 



"blox: contents" ); 



"blox:dialoguid" ) ). 
"blox:uid" ) ), 



var contentNodes = update. getEl ementsByTagNameC 

var contents = ""; 

if C contentNodes != null && contentNodes. length == 1 ) 
contents = contentNodes. it em CO) .text; 

headers [ headers. length ] = 

new ArrayC update. getAttributeC "blox:bloxName" ), 
parselntC update. getAttri buteC 



} 

return headers; 



parselntC update. getAttributeC 
contents ) ; 



function _parseClosedDialogHeadersC updateNodes ) 

var headers = new ArrayC); 

for C var i=0; i < updateNodes. length; i++ ) { 
var update = updateNodes. itemC i ); 

headers [ headers. length ] = 
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new ArrayC update. getAttributeC "blox:bloxName" ), 
parselntC update. getAttributeC 

"blox:dialoguid" ) ) ); 

^ return headers; 

function _parseRightclickMenuHeaders( updateNodes ) 

var headers = new ArrayQ; 

for ( var i=0; i < updateNodes. length; i++ ) { 
var update = updateNodes. item( i ); 



'b1 ox: contents" ); 



"b1ox:uid" ) ), 
"bloxrxpos" ) ), 
"bloxrypos" ) ), 



var contentNodes = update. getElementsByTagName( 
var contents = ""; 

if ( contentNodes != null && contentNodes. length == 1 ) 
contents = contentNodes. item(O) .text; 

headers [ headers. length ] = 

new ArrayC update. getAttributeC "blox:bloxName" ), 
parseintC update. getAttributeC 

parselntC update. getAttributeC 

parseintC update. getAttributeC 

contents ) ; 



); 



} 

^ return headers; 

function _parseBrowserwindowHeadersC updateNodes ) 

var headers = new ArrayC); 

for C var i=0; i < updateNodes. length; i++ ) { 
var update = updateNodes. i tern C i ); 

var target = update. getAttributeC "blox:windowTarget" ); 

var url = ""; 

var features = null; 

var urlNodes = update. getElementsByTagNameC "bloxrwindowURL" 

if C urlNodes != null && url Nodes. length == 1 ) 
url = url Nodes. itemCO) .text; 



var featureNodes = update. getElementsByTagNameC 

'bloxrwindowFeatures" ); 

if C featureNodes != null && featureNodes. length == 1 ) 
features = feat ureNodes.it em CO). text; 



); 



headers[ headers. length ] = new ArrayC url, target, features 

} 

return headers; 

} 

function _parseClientCommandHeadersC updateNodes ) 
var headers = new ArrayC); 

for C var i=0; i < updateNodes .length; i++ ) { 
var update = updateNodes. itemC i ); 
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var command = null ; 

var commandNodes = update. get El ementsByTagName( 

"bl ox: command" ); 

if ( commandNodes != null && commandNodes. length == 1 ) 
command = commandNodes. item(O) .text ; 

headers [ headers. length ] = new Array ( command ); 

^ return headers; 

function _parseClipboardHeaders( clipboardNodes ) 
var headers = new ArrayO; 

for ( var i=0; i < clipboardNodes. length; i++ ) { 
var clipboard = clipboardNodes.item( i ); 
var format = clipboard.getAttribute( "blox: format" ); 
var contents = null; 

var contentNodes = clipboard. get El ementsByTagNameC 

"blox: contents" ); 

if ( contentNodes != null && contentNodes. length == 1 ) 
contents = conten tNodes.i tern (0) .text ; 

^ headers [ headers. length ] = new Array ( format, contents ); 

return headers; 

} 

function _parseResul tData( resultNode ) 

var type = resultNode. getAttribute( "xsd:type" ); 
if ( type = null ) 

type = resultNode.getAttributeC "bloxitype" ); 
if ( type == null ) 

type = "string"; 

if ( type == "string" || type == "Object" ) 
return resultNode. text ; 

if ( type = "boolean" ) 

return "true" == resultNode.text ; 

if ( type = "int" || type == "integer" || type = "long" ) 
return parselntC resultNode.text ); 

if ( type = "byte" ) 

return resultNode. item( 0 ) .text .charAtC 0 ); 

if ( type == "double" || type == "float" ) 

return parseFloatC resultNode.text ); 



if ( type = "exception" ) { 
var exception = 
var reason = 



II II , 

II 11 , 



"blox:exception" ); 
); 



var nodes = resultNode.getEl ementsByTagNameC 

if ( nodes != null && nodes. length == 1 ) { 

exception = nodes. item(O) .getAttribute( "blox:class' 
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reason = nodes. item(O) .text ; 

} 

return new Except i on ( exception, reason ); 



if ( type == "Array" ) { 

var array = new ArrayC ); 

for C var i=0; i < resultNode.childNodes. length; i++ ) 
array[i] = _parseResul tData( resul tNode. childNodes . item( i ) ); 
return array; 



return null ; 

} ^ 

var _soapClientCommands = new ArrayC); 
var _soapClientCommandTimer = null; 

function _runNextSoapClientCommand( ) 

_soapClientCommandTimer = null; 

if ( _soapClientCommands. length > 0 ) { 

var command = __soapClientCommands.shift() ; 
eval ( command ) ; 

} 

if ( _soapClientCommands. length > 0 ) { 

_soapClientCommandTimer = setTimeout( "_runNextSoapClientCommandO ;", 0 ); 

} 



Page 13 



